unit uConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  Tfm_Config = class(TForm)
    pc_Principal: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    ed_Login: TEdit;
    ed_Password: TEdit;
    bt_Salvar: TButton;
    procedure bt_SalvarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_Config: Tfm_Config;

implementation

uses
  uConfiguracoes,
  uUtils;

{$R *.dfm}

procedure Tfm_Config.bt_SalvarClick(Sender: TObject);
begin
  Configuracao.Login := ed_Login.Text;
  Configuracao.Senha := Crypt(ed_Password.Text);
end;

procedure Tfm_Config.FormCreate(Sender: TObject);
begin
  ed_Login.Text := Configuracao.Login;
end;

end.
